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| 1-017 6-SEP=-1984 93:38; 2 (CBASRTL.SRCIJBASMATASS.MAR;1 sit (1) 


TITLE BASSMAT_ASSIGN 
SIDENT /1=017/ ; File: BASMATASS.MAR Edit: MDL1017 


SRAKAAAAAH AAA AAAAEKE AAA AAAAAAAAH RARER ATeeeReKeeeeeeeeeeeeeetese 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eORPORAT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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: FACILITY: BASIC code support 

; ABSTRACT: 

This module copies one matrix to another. 
; ENVIRONMENT: User Mode, AST Reentrant 


: AUTHOR: R. Will, CREATION DATE: 29-May-79 
MODIFIED BY: 
*+¢ 


- Original 

- Add support for byte, g and h floating. PLL 15-Sep-81 
03 - More modifications for new data types PLL 24-Sep-81 
04 = Change external references to G* RNH 25-Sep-81 

05 - Substitute a macro for the calls to the array fetch and store 
routines. This should speed things up. PLL 6-Nov-81 

06 - STORE macro must handle g & h floating. PLL 11-Nov-81 

07 - Correct a run-time expression FETCH and gione macros. PLL 20-Jan-82 
38 - Correct FETCH, STORE again. PLL 23-Feb- 

10 - 
11 - 
1 
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Don't List macro expansions. PLL Tecmor 82, : 
Fix branch instruction which excluded dynamic strings. PLL 26-Mar-1982 
Remove FETCH and STORE mecros: they are now located in macro 
Library MATRIXMAC.OLB. LB 19-May-1982 
¢ - Add support for dynamically mapped arrays. PLL 1-Jul-1982 
- Added code to load up DATA before calling macro STORE. Also 
changed CASE stmt code that was enhanced to use R8 instead 
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of R11. LEB 4-JUL-1982. 


Changed own storage to stack storage. 
in D=>G and G=->D assignments, after 


back down to destination da 
Use G* for ALL externals. 


tat 
SBL 
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e. MDL 15-Oct-19 


6-Nov-1982 


v04-00 
SMATASS .MAR;1 


PLL 9-Jul-1982 
romoting to tas demote 


there are new externals with the BASRTL/BASMATRIL breakup. Make 
them G* too. MDL 26-May-1983 
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| BASSMAT_ASSIGN 15-SEP-1984 23:41:37 VAX/VMS Macro V04-00 Page 
| 1-017 DECLARATIONS 66-SEP-1984 19:39:62 EBASRIL. Sk SRC CBA BASMATASS.MAR; 1 . 3) 
00 67 «SBTTL DECLARATIONS 
| 000 9: INCLUDE FILES 
000 8 ; 
Boo 71 
00 ie SDSCDEF ; define descriptor offsets 
000 7 SSFDEF ; use to get scale 
0000 74 
0000 ie 
4464 6 ; EXTERNAL DECLARATIONS: 
000 a 3 
44 4 
000 7 -DSABL GBL ; Prevent undeclared 
0000 80 ; symbols from worn 
0000 81 3 gutomet ical ly al. 
0000 Hf -EXTRN BASS$K_ARGDONMAT > signalled if all 3 blocks 
0000 8 3 wee present in array desc 
0000 84 ; or dimct = 0 
0000 85 -EXTRN BASSK_DATTYPERR 3 signalled if dtype of arra 
0000 86 ; isn’t word long ee double 
0000 87 ; or "if not string te oO string 
0000 88 -EXTRN BASS$STO_FA_W_R8 ; array element store for wore 
0000 89 -EXTRN BASSSTO_FA_L_RB 3; array element store for long 
0000 90 -EXTRN BASSSTO_FA_F_R8 ; array element store - float 
0000 91 ~-EXTRN BASSSTO_FA_D_RB ; array element store - double 
0000 38 -EXTRN BASSFET_FA_W_R8 3; array element fetch - word 
0000 9 -EXTRN BASSFET_FA_L_R8 3; array element fetch = Long 
0000 94 -EXTRN BASSFET_FA_F_R8 ; array element fetch - float 
0000 95 -EXTRN BASSFET_FA_D_R8 3; array element fetch - double 
0000 96 -EXTRN BASSSTO_FA_B_R8 3 array element store - byte 
0000 97 -EXTRN BASSSTO_FA_G_R8 3; array element store - gfloat 
0000 98 eEXTRN BASSSTO_FA_H_R8 ; array element store - hfloat 
0000 99 -EXTRN BASSFET_FA_B_R8 3; array element fetch - byte 
0000 100 -EXTRN BASSFET_FA_G_R8 ; array element fetch - 9 loat 
0000 101 -EXTRN BASSFET_FA_H_RB 3; array element fetch - hfloat 
0000 108 -EXTRN BASSSTORE_GFA 3 array element store a type 
0000 10 eEXTRN BASSFETCH BFA 3 array element fetch a type 
0000 104 -EXTRN BASSMAT_REDIM : check if redinens ioning ) 
44 4 3 dest array is necessary, if 
0000 107 -EXTRN BASSSSCALE _R1 ; scale the double procision 
0000 108 -EXTRN STRSFREE1_BX_R4 ; free a string 
0000 109 ~-EXTRN BASS$STOP™ ; signal fatal errors 
0000 110 -EXTRN MTHSDINT_R4 3 truncate dbl precision number 
0000 111 
0000 iN 3 
0000 115 ; MACROS: 
0000 114; 
0000 115 
B88 Ng ; SBASSMAT_ASS copy loop algorithm, see next page 
00 117; FETCH fet - element from an array (found in macro Library 
0000 118; RATRIXAA ) 
000 119; STORE re an element into an array (found in macro Library 
000 120; MATRIXMAC. OLB) 
444 121 
Bn8 1 § 3 
00. «(1 ; EQUATED SYMBOLS: 


-—-----—- ---- — oe 


| Near ee 


| BASSMAT_ASSIGN 15-SEP-1984 7:41:37 VAX/VMS Macro V04-00 Page 4 
1+ 17 DECLARATIONS g-SE pa] 986 93:59:09 EBASRTL. SREIBASMATASS. MAR: 1 ° (2) 
| 000 124; 
00000004 6 : 3 first 4 ff f 
rst_arg = i; arg offset for str co 
| Bae 008 000 1 $ second. arg = 8 3 org offset for str copy 
00 st 8 1 8 index] = 12 ; stack offset for str copy 
000 3 0 1 index2 = 16 3; stack offset for str copy 
0000014 000 150 temp_desc = 20 3; stack offset for str copy 
00000000 000 131 Lower bnde = 0 ; stack offset for temp 
00000004 0000 1 ¢ lLower_bndi = 4 ; stack offset for temp 
00000008 0000 1 upper_bndi = 8 ; stack offset for temp 
0000000C 0000 134 value_desc = 12 ; output descriptor 
sis 4 4 135 str_len = 12 ; length field in descriptor 
OO0O00E 00 136 dtype = 14 ; data type field in desc 
0000000F 4464 \3 class = 15 ; class field within desc 
00000010 0000 138 pointer = 16 5 peiater field within desc 
00000014 0000 139 data = 20 ; DATA (for 4 Longwords) 
00000018 0000 140 dsc$l_li_1 = 34 ; desc offset if 1 sub 
0000001C 0000 141 dsc$l_ul_1 = 28 ; desc offset if 1 sub 
0000001C 0000 146 dsc$l_l1_2 = $5 ; desc offset if 2 sub 
00000020 0000 14 dsc$l_ul_2 = 32 ; desc offset if 2 sub 
00000024 0000 144 dsc$l_l2_2 = 36 ; desc offset if 2 sub 
00000028 0000 145 dsc$l_u2_2 = 40 ; desc offset if 2 sub 
0000 146 
0000 147 ; 
0000 148 ; OWN STORAGE: 
0000 149 ; 
0000 150 
0000 151 ; NONE 
0000 136 
0000 153; 
9494 13 ; PSECT DECLARATIONS: 
00000000 156 -PSECT _BASSCODE PIC, USR, CON, REL, LCL. SHR, - 
44 13 EXE, RD, NOWRT, LONG 
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| BASSMAT_ASSIGN 15-SEP-1984 23:41:37 VAX/VMS Macro Vv04-00 Pa 
Bete DECLARATIONS 5-SEb= 1383 93:59:05 BASRTL.SRCJBASMATASS.MAR; 1 - 3) 
| 0 160 ;+¢ 
a9 18 ; This macro contains the coping mechanism for accessing all elements of 
| 0 196 ; an array. It also contains all the logic for all the combinations of data 
0 165 ; types and scaling. A macro is used to make it easy to maintain the parallel 
182 ;_code for all the different data types. 
4 198 ; MACRO SBASSMAT_ASS src_dtype, dest_dtype ; copy algorithm 
00 198 3+ 
0 169 ; Loop through all the rows. Row and column r and | bounds h 
op 176 3 initialize on the stack. z eS tape eer omcting: sept me 
80 138 = 1ST_ SUB’ dt dest_dt 
* src pe'des e': 
445 Wr MOVL Tower bndo(SP). R11 ; R11 has 2nd lower bound 
000 176 3+ 
000 177 ; Loop through all the elements (columns) of the current row. Column lower 
000 ire ; bound is initialized in R11. Column upper bound is on the stack. 
0000 179 ; Distinguish array by data type so that the correct fetch routine can 
0000 180 ; retrieve the data, the correct conversion can be done and the correct 
0000 181 ; store routine can be called. 
0000 136 3° 
$099 ibe LOOP_2ND_SUB dt dest_dt 
"src e'des *s 
0000 185 =" — Stell 
0000 186 ;+ 
0000 187 ; Get the data from source array 
0000 188 ;- 
333 ow ato, i so 
> 3 pointer to arra s 
0000 8191 MOVL Lower_bnd1(SP), R1 3 current row ane 
an mee LRA, 
src e' : r 
4 lS _dtyp etch data from src array 
0000 195 ;+ 
g000 196 ; If the data types of the source and destination arrays are different, 
0000 197 ; convert the data to the destination type. If scaling is needed (ie if 
3008 138 3 at least one but not both of the arrays is double) scale the data. 
0000 200 ° 
0000 01 lf DIF src_dtype, dest_dtype ; src and dest arrays are not 
000 8 ; same data type 
00 0 IF IDN src_dtype, D 3; source is double 
00 04 MOVD RO, -(SP) ; save the data 
4 05 MOVL SFS$L_SAVE_FP(FP), RO ; pass FP to get scale 
00 36 JSB G*BASSSSCALE_R1 ; get scale in RO & RI 
On8 0 3; call a BLISS routine because 
000 08 ; the frame offsets are only 
464 09 3; defined for BLISS 
4 0 10 DIVDS RO, (SP)+, RO 3; scale 
000 11 If ION dest_dtype, G ; special case dbl to gfloat 
44 ¢ CVTOH = RO, RO ; must be promoted to Afloat 
38 + ovis RO, RO 3; then back down to gfloat 
00 15 CVT'src_dtype'dest_dtype" RO, RO ; only if dbl to non-gfloat 
000 316 BO i erent artet et ’ " 
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BASSMAT_A2SIGN 


DECLARATIONS 
8 i 
3 
33 
3 
8 
3 
3 
000 0 
44 1 
9000 : 
0000 4 
0000 5 
0000 36 
000 $ 
000 8 
0000 39 
0000 40 
0000 4] 
0000 $ 
0000 4 
0000 hae 
0000 45 
0000 6 
0000 4 
0000 48 
0000 49 
0000 50 
443 51 
000 $2¢ 
0000 5 
0000 54 
0000 55 
0000 3$ 
000 5 
000 58 
0000 259 
000 60 
000 61 
000 $¢ 
000 6 
000 264 
00 65 
a 6 
0 6 
0000 26 
000 $ 
000 0 
000 71 
4 ? 
00 ? 


15=SEP=1984 23:41:37 VAX/VMS Macro v04-00 P 
b-8ep=198e 10:39:05 BASRTL.SRCJBASMATASS.MAR; 1 ms & 


o1FF 

olf ION src_dtype, G ; special case gfloat to dbl 

If ION dest_dtype, Dd 2 . 

CVTGH RO, R ; promote to hfloat 

itty RO, R 3; then back down to dbl 

CVT"src_dtype'dest_dtype' RO, RO ; convert data from RO into RO 
; RO &R1 for double 

fe 

i tala ate el RO, RO ; src not D or G = OK to convert 

~ENDC 

IF ION dest_dtype,. D ; dest is double 

IF DIF src_dtype, G 3 and src is not gfloat 

MOVD RO, -(SP ; save the data 

MOVL  SFSL_SAVE_FPCFP), RO : pass FP to get scale 

JSB G*BASSS$SCALE_R1 ; get scale in RO & RI 
; call a BLISS routine because 
; the frame offsets are only 
; defined for BLISS 

MULD2 (SP), RO 3; scale 

JSB G*MTHSDINT_R4 : integerize 

~ENDC 

-ENODC 

-ENDC 


+ 


Now store the data in the destination array. 
Hfloat passed by value takes 4 words, gfloat and double take 2 words, 
and all other dtypes take 1 longword. 


dtyre is hfloat 


IF IDN dest_dtype, H 
é pointer to array desc 


MOVL dest_matrix(AP), R 


MOVL lLower_bnd1(SP), R5 current row 

ROVE R11, R6 current column 

If ION dest _dtype, G ; dtype is gfloat 

MOVL dest_matrix(AP), Ro 3 pe tnter es array desc 
MOVL lLower_bnd1(SP), R3 3 current row 

ett R11, R4 3; current column 

IF ION dest _dtype, D ; see if dtype is double 
MOVL dest_matrix(AP), Re ; pointer to array desc 
MOVL lLower_bnd1(SP), R3 3; current row 

tt 11, R4 > current column 

MOVL dest_matrix(AP), R1 ; all other cases here 
MOVL lower_bnd1(SP), R2 3; current row 

MOVL R11, R : current column 

-ENDC 

~ENDC 


code now same for all dtypes 
load value into DATA 
store in array 


-ENDC 

MOV'dest_dtype’ RO, DATA(SP) 
type’ 

get next column 


STORE ‘“dest_d 
INCL R11 


_BASSMAT_ASSIGN 
1-017 


joo 


CBASRTL.SRCIJBASMATASS.MAR; 1 
; see if last column done 


3; no, continue inner loop 


3 get next row 


3 no, continue outer loop 


Fa: Haat b+ 9 23:41:37 VAX/VMS Macro v04-00 
DECLARATIONS 6-SEP=1984 10:29:02 
0000 74 CMPL R11, RY 
00 75 BGTR 
00 7 BRW LOOP_2ND_SUB'src_dtype'dest_dtype’ 
00 5 
$6 i Have completed entire row. See if it was the last row. If not, 
000 ? : _cont inue with next row. 
00 f 
000 5$: INCL Lower _bnd1 (SP) 
000 asa ower_bnd1(SP), upper_bnd1(SP) ; see if last row done 
000 bg BRW LOOP_1ST_SUB'src_dtype'dest_dtype’ 
0000 88 7$: RET ; yes, finished 
0000 89 
0000 90 -ENDM 


Page 
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BASSMAT_ASSIGN 15-SEP-1984 23:41:37 VAX/VMS Macro v04-00 Pa 
Rete BASSMAT_ASSIGN = Copy one matrix to ano 5-3E=13be $3359; 2 (UBASRTL.SRCJBASMATASS.MAR; 1 ™ 


9 ee -SBTTL BASSMAT_ASSIGN = Copy one matrix to another 
94 : FUNCTIONAL DESCRIPTION: 
Copy one matrix to another. Redimension the output matrix to have the 
same dimensions as the input matrix. Initialize all the necessary 
Looping information on the stack. Conversions will have to be done 
from the source data type to the destination data type, so divide 
the looping portion according to the data types. String arrays 
esy only be copied to string arrays so no conversion is necessary 
ere. 
CALLING SEQUENCE: 
CALL BASMAT_ASSIGN (src_matrix.rx.da, dest_matrix.wx.da) 
; INPUT PARAMETERS: 
src matrix = 4 
IMPLICIT INPUTS: 
Scale from the callers frame to scale double precision. 
OUTPUT PARAMETERS: 
dest_matrix = 8 
IMPLICIT OUTPUTS: 
NONE 


FUNCTION VALUE: 
COMPLETION CODES: 


NONE 

SIDE EFFECTS: 
This routine calls the redimensioning reutine and the orrey element 
fetch and store routines and therefore may signal any of their errors. 


It may also signal any of the errors Listed in the externals section. 
It may also cause the destination array to have different dimensions. 
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4FFC ~-ENTRY BASSMAT_ASSIGN, “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,1V> 


REGISTER USAGE 

RO - R8 destroyed by store routines 
Ry upper bound for 2nd subscript 
R10 pointer to array descriptor. 
R11 current value of 2nd subscript 


CNAME WN 0 ODNOA UE WIN O OO NA UE WIN 0 OD NOU EWN OO 
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BASSMAT_ASSIGN = Copy one matrix to ano 6-SEP-1984 BASRTL.SRCJBASMATASS.MAR; 1 (4) 
0 49 ; Put routine arguments into registers for ease of use. 
29 ; If block 2 of array descriptor (multipliers) is not present then error. 
0 52° 
5A 04 AC 00 $0 2g MOVL src_matrix(AP), R10 ; ptr to array descr in R10 
2h OA AK OF EY 0006 34 BBC #DSCSV_FL_BOUNDS, DSCSB_AFLAGS(RIO), ERR_ARGDONMAT 
te 2? ; exit 7 block 3 gee 
3 present in descriptor 
OE 02 aa bf Bye 33 ce OSCSB_DTYPECRIO), #DSCSK_DTYPE_T "see if not numeric 
0083 34 011 59 BRwW STRING ; text 
18 O02 AA 1 0014 60 1$ CMPB BSCSO_DTYPE (RIO), #DSCSK_DTYPE_DSC ; see if dynamic string 
OD 12 0018 61 BNE $ 3; numeric 
OO1A 6¢ 
SOTA St af fd i Thi b d Lt i 
; Array of descriptors. S may be a dynamica mapped numeric array, or 
OO1A 65 ; an orrey of dynante strings. bec ide which and branch. : 
OO1A 66 ;:- 
50 04 AA 00 SOTA 4 MOVL 4(R10), RO d f 
° ; get addr of desc 
0€ 02 A0 91 Ole 69 CMPB = OSC SB_OTYPE(RO), #DSCSK_DTYPE_T : text? 
03 12 002 70 BNEQ 2s 3 no = numeric 
00A0 31 605? 71 BRW STRING ; text 
0027 if 
0027 12 3° 
0027 74 ; Allocate value_desc and data on the stack. This applies to both 1 and 2 
pos! 75 ; dimensional cases. 
0027 76 ;- 
0027 77 
6 Ur Base 78 2$ CLRQ -(SP) :; allocate data 
7E 7C 0029 79 CLRQ -(SP) ; may be hfloat 
7E 7C b05¢ &0 CLRQ -(SP) ; allocate value_desc 
002d 5 3+ -_ , 
0020 83 ; Set up Limits for looping through all elements 
0090 38s 
01 OB AA 91 O09p 86 CMPB DSCSB_DIMCT(R10), #1 ; determine # of subscripts 
OF 13 0031 87 BEQLU INIT_ONE_SUB ; 1 sub, go init 
2c «1A 0033 88 BGTRU INIT_TWO_SUBS ; >=2 subs, go init 
0035 89 ; 0 subs, fall into error proc 
0035 90 
0035 391 ERR_ARGDONMAT: 
00000000'8F DD 8° 5 38 PUSHL #BAS$K_ARGDONMAT ; signal error, 0 for dimct 
00000000'GF 01 FB st + CALLS #1, G*BASS$STOP ; or block 2 or 35 absent 
004 95 ;+ 
04 38 ; There is only 1 subscript. Redimension the destination array. 
04 97 ; Make both uayer and lower bound for 2n . 
004 98 ; subscript a 1. A second subscript will be passed to and ignored by the 
Be i3p 3; store routine. Put bounds for 1st subscript on stack. 
04 $3) 
04 4 ¢ INIT_ONE_ SUB: ; 
1C AA DD 0042 40 PUSHL dsc$l_u1_1(R10) ; get bound for redim 
08 AC DD 004 404 PUSHL dest_matrix(AP) 3; pointer to dest array desc 
00000000'GF 02 FB 0048 405 CALLS #2, G*BASSMAT_REDIM : redimension the dest 
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55. SA 
05 06 02 AS 


1B 02 AS 
03 

4492 

1¢ 3602 AS 
9 

5221 

18 02 AS 


} 
28 
20 
08 AC 

00000000°GF_ 0 

20 AA 
1C 
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15-SE 
- Copy one matrix to ano 6-SE 
PUSHL Gsc$t ul 1 (nig 
PUSHL SacSU UTTER 
BGTR 
MOVL #i, (SP) 
1$ PUSHL # 


#1, R9 
BRB SEPARATE_DTYPES 


necessary. Put the up 
stack and make sure that the | 
at (do not alter row or col 


INIT_TWO_SUBS: 
PUSHL Gsc$t .ue_ginig 
PUSHL dsc$l_ui_2(R10 
PUSHL s** matrix (AP 
CALLS #3, G*BASSMAT 
PUSHL gsc$t_ul g(R10 
PUSHL dsc$l_l1_2(R10 
BGTR 1$ 
MOVL #1, (SP) 

1$ MOVL dsc $t ugg (R10) 
PUSHL dsc$l_l2_2(R10) 
BGTR SEPARATE_DTYPES 
MOVL 1, (SP) 


3% 
3; Algorithm now differs according to data types 


SEPARATE DTYPES: 
MOVL R10 
5$: CASEB DSC 
2$: -WORD BYTE 
-WORD WORD-2$ 
-WORD LONG-2$ 
-WORD ERR _DATTYPERR-2$ 
-WORD FLOAT-2$ 
-WORD DOUBLE-2$ 


+ 


R5 
$8 DTYPE CRS), #DSCSK_DTYPE_B, 


AX/VMS Macro V04-00 Page 
BASRTL.SRCJBASMATASS.MAR; 1 


Ist upper bound 

Ist lower bound 

not 0 or neg, do 2nd sub 
don't alter col 

dummy ang upper bound 
dummy 2nd lower bound 

go loop 


+ 

There are 2 subscripts. (Check and redimension the destination array if 
per bound for both subscripts on the 
gyer bound for both subscripts will start 


2nd upper bound 

lst upper bound 
dest array pointer 
redimension destination 
lst upper bound 

Ist lower bound 

not row 0 or neg. do cols 
start with row 

ene upper bound 

nd lower bound 

not col 0 or ed i go loop 
start with col 


; code for long dtype 

: not supported 

; code for float dtype 
; code for double dtype 


Sete Se te eee 
2 
Cc 
a 
a 


: To avoid having Be sere See Pe ere for all the dtypes between 
) 


; double and gfloat 


CMPB SCSB_DTYPE(R5), #DSCSK_DTYPE_G 


BRW GFLOAT 


BRW HFLOAT 


DSC$B_DTYPE(RS), #DSCSK_DTYPE_H 


», check for gfloat and hfloat separately. 


; code for gfloat dtype 


; code for hfloat dtype 


DSCSB_DTYPE(RS), #DSCSK_DTYPE_DSC 


-- ---— 


BASSMAT_A N 
beiy, ~ASSIG 
06 
55 04 AA 
D1 
4 Sf eal , 
00000000 * GF 


"Rte ASSIGN = Copy one matrix to ano "BrSeP =}382 18:39:00 YBASRTL. Bae BAMATASS MAR: s¥ dows ta 


$67 BNEQ ERR pe ee 
464 MOVL 4(RTO), R5 : get addr of desc 
465 BRB 5$ 
A £08 
A 467 ERR_DATTYPERR: 
D QOBA 468 PUSHL oa DATTYPERR ; Signal error, unsupported 
FB O00CO 469 CALLS , G*BASS$STOP 3 dtype in array desc 


[ 
BASSMAT_ASSIG". 
bear . 


| 

59 O08 AC 00 
7E 04 

O020E0000 8F oD 
~~ 

5A 

OC AE OF 

91 A 91 
05 13 

26 «1A 

FF5O0 0s 31 

03 DD 

1C AA DD 

59 DD 

seed ; tal 02 FB 
5 1¢ AA 00 
52 18 AA 00 
03 14 

52 1 OD 

¢ i 2 
5 1 00 

ae 1 


COOOCOCCOCSOSCSOSOSCSOSSSOSSSSOSSSOOOOCCOOOOSOOCOOOOOOCOOOOOOOOOoO 


COO AMADA AMMMMMMMMMMMMMMMMN SOO OAAAAAAAAAAAABDAAAAAAAAAAAAANA 


AWD NWO BP NNW MVMIMIMIVINIOM Bb SMG OB NN 


a 
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138 
47 
474 
47 


tt = I I IQOOOOOOOO 
NOUS WN CO OONOAUS Wh 


DVPVPVPVLV PV LVPVDVDVIVDVSVSIVSUSUSTSUST STS 


CONOUEWN OOO 


PMoPoNnonononofnorory 


- Copy one matrix to ano 6-SEP-19 


+ 


Se Ge Se Se Se Ge Se Ge Ge Ge 


store routine because the argcount in the arglist of the C L 
include the 2nd subscript. Put bounds for Ist subscript into registers. 


15-SEP-1984 23:41:37 VAX/VMS Macro v04-00 Pa 
Hr 93:59: 2 (CBASRTL.SRCJBASMATASS.MAR; 1 ” 


3¢ 
; Source array is a string array. 


GISTER USAGE 


current bound for Ist subscript 

upper bound for ist subscript 

lower bound for 2nd subscript 

upper bound for end subscript 

current value of 2nd subscript : 
pointer to destination array descriptor 
pointer to source array descriptor 


Initialize stack for CALLG to element store routine. Then divide algorithm 
based on number of subscripts. Since the dtype in the temporary descriptor 
is text the array fetch and store routines will signal an error i 

the dtype of the array is not text of array of descriptors of type text 

and there is no need to do a check for dtype here. 


dest_matrix(AP), R9 
nter of descriptor 


= ;_poi 
#<<DSCSK_CLASS_D @ 24> + <pscsk_bT¥PE.T @ 16>> ; Ist desc word 
; class, type and 0 Length 


-(SP) 3; space for indices 

R10 ; ptr to dest desc for call 
12(SP) ; pointer to NULL descriptor 
DSC$B_DIMCT(R10), #1 :; determine # of subscripts 
INIT_ONE_SUB_S 3 1 sub, go init | 

INIT TWO-SUBS_S 3 >=2 subs, go init 
ERR_ARGDONMAT ; 0 subs, error 


1 gubccr tee. Make both yoper and lower bound for 2nd 


second subscript will be passed to and spores by the 


LL will not 


#3 ; 3 arguments to store routine 
; ignores 2nd index 
dsc$l_u1_1(R10) ; get bound for redim 
R ; pointer to dest array desc 
#2, G*BASSMAT_REDIM ; redimension the dest array 
dsc$l_u1_1(R10), R3 ; 1st upper bound 
dsc$l_L1_1(R10), R2 ; Ist lower bound 
1$ ; not 0 or neg, init 2nd bound 
#1, R2 ; don't alter row 
#1, R4 ; set 2nd lower bnd to 1 
; set 2nd upper bnd to 1 


go loop 


———_—_—_—_ --- ee ee —_— —————— - — = _ 


| J 6 
ASSMAT_ASSIGN “SEP- 41: . 
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BASSMAT_ASSIGN = Copy one matrix to ano 6-SEP-1984 BASRTL.SRCJBASMATASS .MAR; 1 ) 


;* 
| ; There are 2 subscripts. Put the upper bound for both subscripts in 
| ; registers and make sure that the lower bound for both subscripts will start 
| ; at 1 (do not alter row or col 0) 
| ' ; 
INIT_TWO_SUBS_S: 
04 ODD 0 PUSHL” #4 : 4 arguments to store routine 
$8 AA DD s PUSHL dsc$t ugg (ni) 3 end upper bound for redim 
0 AA DD D PUSHL dsc$l_ul_2(R10) ; Ist upper bound for redim 
83 DD 1 PUSHL R9 ; ptr to dest array to redim 
nae 3 CFB 1 CALLS #3, G*BASSMAT_REDIM ; redim the dest array 
5 8 AA 00 1 MOVL Gsc$t ugg (ni). RS 3 2nd upper bound 
54 4 AA 00 1D MOVL dsc$l_l2_2(R10), R4 ; 2nd lower bound 
83 14 1 BGTR 1$ ; not col 0 or neg. do cols 
54 1 00 3 MOVL #1, RG ; start with col 
53 20 AA 00 6 1$: MOVL dsc ot ut 3 (nie) R3 ; Ist upper bound 
52 1C AA 00 & MOVL dsc$i_11_2(R10), R2 ; Ist lower bound 
03 «14 E BGTR LOOP_TST_SuB_S ; not row 0 or neg. go loop 
52 01 00 ; MOVL #i, R2 3 start with row 
3* 
33 ; Loop through all the rows. Row and column upper and lower bounds have been 
33 ; initialized in registers. 
LOOP_1ST_SUB_S: 
56 54 00 MOVL R4, R6 ; R6 has 1st lower bound 


4 
; Loop through all the elements (columns) of the current row. Column lower 
; bound is initialized in R6. Column upper bound is in R5. 


LOOP_2ND_SUB_S: 


g@ 
3; Fetch the string from the source array. 


10 AE 56 00 MOVL R6, index2(SP) 3; current column 
OC AE 52 00 MOVL R2, index1(SP) 3 current row t 
04 5A 0 MOVL R10, first arg(SP) ; source array desc pointer 
08 AE 14 AE E MOVAQ temp_desc (SP) second_arg(SP) ; desc to copy fetch 
00000000'GF 6& FA CALLG (SP)? G*BASSFETCH_BFA : copy element to temp_desc 


3@ 
; Store the string in the destination array. Note that the indices are 
; already set from the fetch. 


SOOOOCOOCOCOOCOCOCOOCOOSCOOSOCCOOOCSOOCOOC OOOO OOCOCOOOCOOOOOOCOCOOOOOOOOOOOOO 
a ee a a ee a a ed a a a oe a ad od od a a ad 


DG B BB BEE EE EAA AINA AIO Iw 


OPM NIA E ER ETE ET ET SIFT > OF OS OS OOO OOOO OOO WWI 
DU DPVPVIV IV IV IV IV IVIVLV IV IVIVIVSIVSIUSULUSVSIUSUSUSUSUSVSVSUS USSU USUI USUSUS USS USSU S ISIS OASIS ISIOSIOSIOSIOSIOSIOSIOS 


COO O9 C0000 SI NN NSD DDD DDD OD TT BS BS BB BB EB AANA 
MEW SO ODONA UE WIN O OD NAW EWN OOD NAUES WN (OO OONAUE WN OOONOUSWWN—0O0 


43 MOVAQ temp_desc(SP), first_arg(SP) ; string to copy to dest 
D MOVL R9, second erg(sP) : dest array desc pointer 
FA CALLG (SP), G*BASSSTORE_BFA > store in array 
D6 INCL R6 3 get next column 

55 D1 CMPL R6, RS ; see if last column done 


14 ae 

08 AE 5 
00000000°GF 6€ 
56 
56 


| 
| 
| 
| 
| 


— 


¢—-—--——- - - - — a 
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1-017 BASSMAT_ASSIGN = Copy one matrix to ano 6-SEP-1984 10:29:02 (CBASRTL.SRCIJBASMATASS.MAR; 1 (5) 
Di 3615 «(016 8 BLEQ LOOP_2ND_SUB_S 3 no, continue inner loop | 
ieee 
16 Hy 3; Have completed entire row. See if it was the last row. If not, 
165 590 ; continue with next row. | 
0165 591 i= | 
gi° 35 
D6 0165 9 INCL R2 3 get next row 
D1 0167 594 CMPL R2, R3 ; see if last row done 
15 O16A $5 BLEG LOOP_1ST_SUB_S : no, continue outer Loop 
7E 1$f 39 MOVAQ see desc(SP), RO : yes, free the temp string 
16 01 598 JSB G*STRSFREE1_DX_R4 ; 
04 0176 599 RET : finished 


j 

| 

| 5 

| 53 5 

C 

50 14 AE 

00000000" GF 

ie eta 


co- a — 
| 
; 


| L 6 
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1-017 BASSMAT_ASSIGN = Copy one matrix to ano 6-SEP-1984 10:29:02 


177 = 602 ;+ 
oir i ; Source array is a byte array. Now differentiate on the destination type. 
| 177 605 ° 
58 08 AC g0 177 606 BYTE: MOVL dest_matrix(AP), R8 ; point to dest descriptor 
| 05 06 02 a8 8F 0178 607 5$: CASEB DSCSB_DTYPE(R8), #DSCSK_DTYPE_B, #<DSC$K_DTYPE_D = DSCS$K_DTYPE_B> 
002d" 01 3 608 1$: -WORD BYTE_TO_BYTE-1$ ; code for byte dtype 
ogee. 1 609 «WORD BYTE_TO_WORD-1$ ; code for word dtype 
0 A% 184 610 -WO BYTE TO _LONG-1$ ; code for long dtype 
FFA 136 611 -WO ERR_BATTYPERR-1$ i; quad not supported 
05CD" 01 616 -WORD BYTE_TO_FLOAT-1$ ; code for float dtype 
O7AE* 13a el? -WO BYTE_TO_DOUBLE-1$ ; code for double dtype 
018C 615 ;¢4 
018C 616 ; Check for g and h floating separately, since their dtypes do not fit into 
Bie ott 3; the CASEB range. 
91 018C 619 CMPB DSCSB_DTYPE(R8), #DSCSK_DTYPE_G 
12 0190 620 BNEQ 
31 O138 63¢ BRW BYTE_TO_GFLOAT ; code for gfloat dtype 
1Cc 02 a8 91 #0195 6 : 2$: CMPB DSCSB_DTYPE(R8), #DSCSK_DTYPE_H 
03 12 0199 os¢ BNEQ 
OB6E 31 p138 oH BRw BYTE_TO_HFLOAT ; code for hfloat dtype 
18 02 A8 91 O19E og? 3$: CMPB DSCSB_DTYPE(R8), #DSCSK_DTYPE_DSC 
06 12 O1A2 628 BNEQ 
58 04 A8 DO Q1A4 263 MOVL 4(RB), RB ; get addr of desc . 
D1 11 Ny 630 BRB 5$ ; CASE again for dtype in desc 
FFOD 31 QO1AA O36 4$: BRW ERR_DATTYPERR 
O1AD 63 
Q1AD 634 ;+ ¢ 
O1AD 635 ; Now type of source and destination arrays are known. Use the macro to 
O1AD 636 ; generate the code for each case 
O1AD 637 ;- 
O1AD 638 


BASRTL.SRCJBASMATASS.MAR; 1 (6) 


-— eer? 


/BARSBAT. ASSIGN 


| 
| 


BASSMAT_ASSIGN = Copy one matrix to ano ;* Ep =} 38% 8; $4: 35 
ppg $0 BYTE_TO_BYTE: S$BASSMAT_ASS 8B, B 


AX/VMS 
BASRTL 


SRESBASMATA 


0 
SS.MAR;1 


row It 
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1-017 BASSMAT_ASSIGN = Copy one matrix to ano 6=SEP=-1984 :29:02 (CBASRTL.SRCIBASMATASS.MAR;1 ( 


0388 643 BYTE_TO_WORD: $BASSMAT_ASS  B, W 
056C€ 644 


7 
6) 


; 


8 7 
| BASSMAT_ASSIGN 55-SEP-1984 AX/VMS Macro v04-00 P 1 
ete BASSMAT_ASSIGN = Copy one matrix to ano aes oe 9 t 93555 £63 BASRTL.SR ¢18 BASMATASS .MAR; 1 a te) 


836C “ BYTE_TO_LONG: $BASSMAT_ASS 8. L 
40 64 


eee eg See Ue Yao Caer pe oS es ee, ee Te a ee at ae LER Ce ee ai 


—n 


BASSMAT ASSIGN 


BASSMAT_ASSIGN 


92E 


15-SEP-19 
= Copy one matrix to ano 6=-SEP-19 


74D eH BYTE_TO_FLOAT: S$BASSMAT_ASS 8, 


8¢ {0:39:02 


F 


AX/VMS Macro v04-00 


BASRTL.SRCIJBASMA 


TASS .MAR; 1 


Page 


19 
(6) 


III III 


| 


BASSRAT ASSIGN 


BASSMAT_ASSIGN 


= Copy one matrix to ano 


15-SEP-19 
6-SEP=19 


a3 63¢ BYTE_TO_DOUBLE: SBASSMAT_ASS B, 


Be 90:39:08 


AX/VMS Macro v04-00 
BASRTL.SRCJBASMATASS.MAR; 1 


a 


| 


ta. 
pageoaT ASSIGN 15-SEP-1984 
| BASSMAT_ASSIGN = Copy one matrix to ano 6-SEP-1984 
G 


| 0825 655 BYTE.TO.GFLOAT: SBASSMAT_ASS 8B, 


23:41:37 VAX/VMS Macro v04-00 Page 21 
10:29:02 (CBASRTL. SRC IBASMATASS..MAR: 1 (6) 


oD0c 


ODOC 658 BYTE_TO_HFLOAT: SBASSMAT_ASS 


F 
BASSM%1 ASSIGN : 15-SEP-19 
1-017 BASSMAT_ASSIGN = Copy one matrix to ano 6=-SEP-19 


4 
4 
4 


2 
1 


3:41:37 
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BASSMAT_ASSIGN 


OOOCOCCOCOCOCOCO TAH HHH Tw § 


Mn CCC SMOME 


E 

E 

E 

E 

E 

E 

E 

F 

F 

F 

F 

F 

F 

OF 

91 OF 

12 OF 

31 OF 
OF 11 
91 OFT] 
12 OF15 
31 OF 17 
OFIA 
91 OFIA 
12 OFIE 
dO Ose 
11 OF 24 
oF sé 
31 OF 26 
OF 29 
OF 29 
OF 29 
OF 29 
OF 29 
OF 29 
OF 29 


660 
661 


- Copy one matrix to ano yeti 13:39 ‘63 


"Soures array is a word array. 


Gest matrix ( 
SC$B_D pt yess 


O_BYTE 
WORD_TO_WORD 


‘+t+pmDPe 


WORD_TO_ DOUBL=18 


AX/VMS Macro V04 


-00 Pa 
BASRTL.SRCJBASMATASS.MAR; 1 ae é 


3 
6) 


Now differentiate on the destination type. 


point to dest descriptor 

PDSCSK _DTYPE_8, * eos c$K _DTYPE_D = DSCSK_DTYPE_8> 
3 code for byté dtype 

; code for word dtype 

; code for long dtype 

3 quad not supported 

; code for float dtype 

; code for double dtype 


34 
‘ Check for g and h floating separately, since their dtypes do not fit into 
a the CASEB range. 


2s: CMPB 


3$: CMPB 


4$: BRW 


> 


; Now type of source and destination arrays are known. 
: _generate the code for each case 


DSCSB_DTYPE(R8), 

WORD_TO_GFLOAT 
SCSB_DTYPE(R8), 

WORD_TO_HFLOAT 
DSC$B_DTYPE(R8), 
4(R8), RB 

5$ 


ERR_DATTYPERR 


#DSCSK_DTYPE_G 

; code for gfloat dtype 
#OSCSK_DTYPE_H 

; code for hfloat dtype 
#DSCSK_DTYPE_DSC 


: get addr of desc 
; CASE again for dtype in desc 


Use the macro to 


| PAgR PAT =Assics 


7? 
15- 
BASSMAT_ASSIGN = Copy one matrix to ano 3: 


0F29 698 WORD.TO_BYTE: — SBASSMAT_ASS 


SEP 


1986 10:55:02 EBASHT 


s 
L. 


rt 
sR 


ere Vv 
€58AS 


04-00 
MATASS MAR; 1 


tip” 
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1-017 BASSMAT_ASSIGN = Copy one matrix to ano 6-SEP=1984 10:29:02 ([BASRTL.SRCJBASMATASS.MAR; 1 (6) 


110A 701 WORD_TO_WORD: $BASSMAT_ASS iW, W 
1268 702 


——_—_—_—_—-— —— 


| 
| 


J 7 
| RASSRAT ASSIGN ~SEP=19 7 YAX/VMS Macro v04-00 6 
hated BASSMAT_ASSIGN = Copy one matrix to ano BrSEp=198e 10:39 Oo EBASRTL. SRCIBASM SMATASS MAR; 1 a 8) 


12E 4 WORD_TO_LONG: S$BASSMAT_ASS WL 
ES - Peat “ 


_ ee 


BASSMAT_ASSIGN 
1-017 


BASSMAT_ASSIGN 


15-SEP-19 
= Copy one matrix to ano 6-SEP-19 


14€9 a4 WORD_TO_FLOAT: S$BASSMAT_ASS W, 


16AA 


84 
84 
F 


2 
1 


3:41 
0: 


4 
29: 


:3 
0 


7 VAX/VMS Macro v04-00 
2 (CBASRTL.SRCJBASMATASS.MAR; 1 
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ft (6) 
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se. 
| RAR THATAASSIGn BASSMAT_ASSIGN = Copy one matrix to ano "38 Ep 1986 16; 33: 35 BASRIL. sae SBateatacs. MAR; 1 — #8) 


gaa 710 WORD_TO_DOUBL: $BASSMAT_ASS  w, D 
18A1 71 


r 


_BASSMAT_ASSIGN 
wag tyAT AAS BASSMAT_ASSIGN 


15-$ 


= Copy one matrix to ano 6-SEP 


18A1 713 WORD_TO_GFLOAT: SBASSMAT_ASS 
1A88 = 714 


1 


Be 15:39:02 


AX/VMS 
BASRTL 


cro V04-00 
REI ASMATASS.MAR; 1 
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 pesenet. pasion 
1-017 


BASSMAT_ASSIGN 
1088 = 716 


15-SEP- 
= Copy one matrix to ano 6-SEP- 


WORD_TO_HFLOAT: $BASSMAT_ASS 


19 
198 


84 
Hy 
H 


2 
1 


3: 
0: 


41 
29: 


:37 
02 
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1-017 BASSMAT_ASSIGN = Copy one matrix to ano g-seP- 1986 19:39:05 BASRTL. SRCIBASMATASS. MAR; 1 We (6) 


+ Source array is a tongword array. Now differentiate on the destination type 


_— MOVL sere matri 
i$: 


58 8 A 0 x(AP), RB oint to dest descriptor 
05 A F FASEB SC$B_DTY Ma Soe #DSCSK_DTYPE_B, * ebsc$K _DTYPE_D = DSCSK_DTYPE_B> 

D° «WORD PONG s 6 BYTES $ ; code for byté dtype 
ke «WOR LONG_TO_WORD-1$ ; code for word dtype 

EF* «WO LONG. TO_LONG-1$ ; code for long dtype 

442 -WORD ERR_BATTYPERR-1$ 3 quad not supported 

5(D' «WORD LONG_TO_FLOAT-1$ ; code for float dtype 

7AE* «WORD LONG TO-DOUBLE-1$ ; code for double dtype 


Z9 
: Check for g and h floating separately, since their dtypes do not fit into 
: _the CASEB range. 


Si i i Bi De te Fe De Be De ee i i i ee i ie i | 


BPE EWI WII anononononononononun 


WR SO ODNAUES WN" OOONAUS WOO 


tt — — — 2 — bs —) — 2 — 2 a —s = — 2 a es —s — 2 = 2s ts ts a a a te ss a 
POYOOVOIAIAIAAAIAAIAAIAIAOAAAAAAOOOAAAAOOOOAOOOO 
PPPP}Y PY PP OOOO 0 O00 00000900 09 0969 09 0009 09 SII NI NINO OOO 
MAMMVIAVIIINMOO FP AOAWH 9S POKES EEE ENMOMO POW THT 


%} we DSCSB_DTYPE(R8), #DSCSK_DTYPE_G 
31 BRw LONG_TO_GFLOAT ; code for gfloat dtype 
" 9} 2s coe SCSB_DTYPE(R8), #DSCSK_DTYPE_H 
OB6E 31 BRW LONG_TO_HFLOAT ; code for hfloat dtype 
18 O02 a8 91 744 3$: CMPB DSCSB_DTYPE(R8), #DSCSK_DTYPE_DSC 
06 12 745 BNEQ 
58 04 A8 00 746 MOVL 4(R8), RB ; get addr of desc 
by. 44 BRB 5$ 
€415 31 749 4$: BRW ERR_DATTYPERR 
By se 
£3¢ > Now type of source and destination arrays are known. Use the macro to 
O37 : _generate the code for each case 
Lhe 


| 
| 
1B O02 A 
0 
0990 
1c 02 A 


= 
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1CAS 757 LONG_TO_BYTE: $BASSMAT_ASS LL, B 
1686 758 


ce Cr re ee 


‘BA $MAT_ASSIGN 
7 BASSMAT_ASSIGN 


abe? 783 


) 
15- 
= Copy one matrix to ano 6-S 


LONG_TO_WORD: SBASSMAT_ASS 


S£p-1986 10:39:00 


lL, W 


AX/VMS 
BASRTL 


Ma 
SR 


acer 
CJ 


A 


re 
; 


3067 763 LONG_TO_LONG: SBASSMAT_ASS 


| 
| 
| 


8 
© cone ‘ 15-SEP-19 
| 


Let 


Be 10:39:02 


BASSMAT_ASSIGN = Copy one matrix to ano 6-SEP-19 


an 


BASSMAT_ASSIGN 


426 


| 265 766 LONG_TO_FLOAT: SBASSMAT_ASS 
6 
| 


15-SEP-19 
= Copy one matrix to ano 6-SEP-19 


4 
4 


L, F 


2 
1 


3:41 
0: 


4 
29: 


:3 
0 
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AX/VMS Macro v04-00 
BASRTL.SRCJBASMATASS.MAR; 1 


P 35 
ow (6) 


——---—-- -- ----—- — 


| 
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2426 769 LONG_TO_DOUBLE: SBASSMAT_ASS —L, D 
61D 770 


—— 


eee 


| 4 
— BASSMAT_ASSIGN = Copy one matrix to ano ‘onsep-iobe TOsse.05 PASTE. SReSBAMeR Tacs man:1 29° 3, 


Z61D 272 LONG_TO_GFLOAT: SBASSMAT_ASS —L, G 


BASSMAT_ASSIGN 
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15=SEP=19 
6-SEP=19 


2804 775 LONG_TO_HFLOAT: SBASSMAT_ASS LL, 


84 
84 
H 


23:41 
10:29 


:37 
:02 
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Pa 
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>, 
on 


0 
05 06 0 


ONeo 
mono 
--- 
rPPrPrrononononononononononono 
OOOO NNN NH HMMM mrnrirny 
OOCOMN POC ff "*Waaaw 


91 2A00 
12 2A04 
31 2A06 
AQ9 
91 2A09 
0 12 2A0D 
OB6E 31 at 
18 02 A8 91 2A! 
06 12 2A16 
58 04 A8 00 2A18 
Di 38611) «AIC 
AlE 
D699 31s GATE 


| 
| 
| 
| 
| 
| 

18 02 AB 

03 

0990 

1c 02 Ag 


BASSMAT_ASSIGN 


801 


00.09.0000 09 09 G9 00 00 CD CD 
—— $$ NOOCSCOSO 
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= Copy one matrix to ano 6-SEP-1984 


FLOAT: MOVL 
5$: CASEB 
1$: «WORD 
WORD 
WORD 
~WOR 
WO 
~ WORD 


Now type of source and destination arrays are known. 
; generate the code for each case 


15-SEP-1984 23:41:37 AX/VMS Mac Page 39 


ro V04-00 
BASRTL.SRCJBASMATASS.MAR; 1 (6) 


dest _matrix(AP), R8 ; point to dest descriptor 
DSCSB_DTYPE(RS), #DSCSK_DTYPE_B, #<DSCSK_DTYPE_D = DSCSK_DTYPE_B> 
FLOAT _ByYTE-1$ ; code for byte dtype 
FLOAT_TO_WORD-1$ ; code for word dtype 

FLOAT LONG-1$ ; code for long dtype 
ERR_DATTYPERR-1$ 3; quad not supported 
FLOAT_TO_FLOAT-1$ ; code for float dtype 


FLOAT_TO_DOUBL-1$ ; code for double dtype 


DSCSB_DTYPE(R8), #DSCSK_DTYPE_G 
FLOAT_TO_GFLOA 

SC$B_DTYPE(R8), #DSCSK_DTYPE_H 
FLOAT_TO_HFLOA ; code for hfloat dtype 
DSCSB_DTYPE(R8), #DSCSK_DTYPE_DSC 


4(R8), RB 3 
5$ : 


ERR_DATTYPERR 
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| 767 5 ;¢ 
| ror i ; Source array is a double array. Now differentiate on the destination type. 
767 ‘ 
58 68 . 0 3767 5 LE: MOVL dest_matrix(AP), R8 ; point to dest descriptor 
05 06 A F 37 40 5$: CASEB ODSCS$B_OTYPE(RS), #DSCSK_DTYPE_B, #<DSC$K_DTYPE_D = DSCSK_DTYPE_B> 
| p' 37 41 1$: -WORD DOUBLE_TO_BYTE-1$ ; code for byte dtype 
F* 377 PL -WORD DOUBLE _TO_WORD-1$ 3; code for word dtype 
411° 3774 4 «WOR DOUBLE _TO_LONG-1$ ; code for long dtype 
94A ore 4 «WORD ERR_DATTYPERR-1$ 3; Quad not supported 
or: 77 45 «WORD DOUBLE_TO_FLOA-1$ ; code for float dtype 
07F5* ora rf) ‘ -WORD DOUBLE TO_DOUBL-1$ ; code for double dtype 
77¢ 48 ; Check for g and h floating separately, since their dtypes do not fit into 
oe $3 3; the CASEB range. 
18 02 a8 91 #377C = 851 CMPB = OSC SB_DTYPE(R8), #DSCSK_DTYPE_G 
0 12 3780 26 BNEQ 
O9BE 31 At} 37 BRwW DOUBLE_TO_GFLOA ; code for gfloat dtype 
1¢ 02 a8 «91 «3785 «= 855 2s: CMPB SCSB_DTYPE(R8), #DSCSK_DTYPE_H 
0 12 3789 2$ BNEQ 
0BB1 = 51 ree 2f BRw DOUBLE _TO_HFLOA ; code for hfloat dtype 
18 O02 a8 91 78 59 3S: CMPB =-d DSCSB_DTYPE(R8), #DSCS$K_DTYPE_DSC 
0 is 79 60 BNEQ 
58 O04 A Dd 794 61 MOVL 4(R8), RB ; at addr of desc 
oe oe 6¢ BRB 5$ ; CASE again for dtype in desc 
C910 31 79A bed 4$: BRW ERR_DATTYPERR 
79D 65 
79D 866 
79D «= 867 =;+ 
79D 868 ; Now type of source and destination arrays are known. Use the macro to 
79D 869 ; generate the code for each case 
79D = 870 _ ;- 
79D =—s 871 
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433F 91 DOUBLE_TO_HFLOA: SBASSMAT_ASS 0, H 
| ut Be. 
t2 4 92 ; Source array is a gfloat array. Now differentiate on the destination type. 
4537 896 
58 68 a 43 7 39 tents MOVL dest_matrix(AP), R8 3 point to dest descriptor 
05 06 & 4 98 5$: CASEB DSCSB_DTYPE(R8), #DSCSK_DTYPE_B, #<DSCSK_DTYPE_D = DSCS$K_DTYPE_B> 
454 99 1$: -WORD GFLOAT_TO_BYTE-{$ ; code for byte dtype 
454 oY -WORD GFLOAT_TO_WORD-1$ ; code for word dtype 
4544 901 «WORD GFLOAT_TO_LONG-1$ ; code for long dtype 
$268 308 «WORD ERR_DATTYPERR-1$ 3 Quad not supported 
454 . GFLOAT_TO_FLOAT-1$ ; code for float dtype 
454A 904 oW GFLOAT_TO_DOUBL-1$ ; code for double dtype 
454C 905 
454C 44 3* 
454C 907 ; Check for g and h floating separately, since their dtypes do not fit into 
oeee 43 ; the CASEB range. 
18 O2A 91 454C 910 CMPB DSCSB_DTYPE(R8), #DSCSK_DTYPE_G 
0 12 4550 911 BNEQ 
O9A4 31 $228 at BRW GFLOAT_TO_GFLOA :; code for gfloat dtype 
1¢ 602 AB. O91 4555914 28 CMPB SC$B_DTYPE(R8), #DSC$K_DTYPE_H 
03 12 4559 915 BNEQ 
0884 = 31 1228 3i6 BRW GFLOAT_TO_HFLOA ; code for hfloat dtype 
18 O02 a8 91 1225 918 3$ CMPB DSCSB_DTYPE(R8), #DSCSK_DTYPE_DSC 
06 12 456 919 BNEQ 
58 04 AB DO 4564 920 MOVL 4(R8), RB ; get_addr of desc 
) eh rio 35: BRB 5$ ; CASE again for dtype in desc 
BB4D 31 456A $35 4$: BRW ERR_DATTYPERR 
456D 924 
4560 925 ;+ 
456D 926 ; Now type of source and destination arrays are known. Use the macro to 
456D 927 ; generate the code for each case 
456D 928 ;- 
456D 929 


——_---——- -- — 


| BASSHAT_ASSIGN 


BASSMAT_ASSIGN = Copy one matrix to ano re 4 
4 1 GFLOAT_TO_BYTE: S$BASSMAT_ASS 
2788 33) “10. : 


71982 19:39:05 YBASHTE 


G, B 


Bacce v04-00 
JBASMATASS.MAR; 1 


Page 


5 
( 


5 
6 


) 


N 9 
15- 
BASSMAT_ASSIGN = Copy one matrix to ano 6=-SE 
tH tt GFLOAT_TO_WORD: SBASSMAT_ASS 
493d 935 


ear a Oe a 
BASSHAT ASSIGN 


5 tates 


P=19 
G, W 


v04-00 
ASMATASS MAR; 1 


Pa 56 
vet (6) 


ASSMAT_ASSIGN 
*017 se BASSMAT_ASSIGN 


B 10 


15-SEP-19 
= Copy one matrix to ano 6-SEP-19 


Be {3:39:02 


4930 937 GFLOAT_TO_LONG: SBASSMAT_ASS = G, 


L 


AX/VMS Mac 
BASRTL.SRC 


ov 


r 
JBA 


04 
MA 


-00 
ASS.MAR;1 


Page 


57 
(6) 


BASSRAT_ASSIGN 


i ts at b+ $3781: 37 
BASSMAT_ASSIGN = Copy one matrix to ano 6-SEP=-1984 10:29:02 


48 
4D 


5 
D 


940 GFLOAT.TO_FLOAT:SBASSMAT_ASS —G, F 


AX/VMS Macro v04-00 
BASRTL.SRCIJBASMATASS .MAR; 1 


Page 


58 
(6) 


PASe SMAT_ASSIGN 


dD 10 
15-SEP 
BASSMAT_ASSIGN = Copy one matrix to ano 6-SEP 
rts 4 333 GFLOAT_TO_DOUBL : SBASSMAT_ASS 
GEF 


71986 10:99:08 


AX/VMS Mac 
BASRTL.SRC 


59 
(6) 


—-—— 


BA SHAT ASSIGN 


15-SEP-19 
BASSMAT_ASSIGN = Copy one matrix to ano 6-SEP-19 


4EF9 946 GFLOAT_TO_GFLOA:SBASSMAT_ASS = G, 
SOEs 309 cea ¥ 


Be {0:29:02 


AX/VMS Macro v04-00 
BASRTL.SRC JBASMATASS..MAR; 1 


Page 


60 
(6) 


SE 


—= 


F 10 
ASSMAT_A 15-SEP-1984 7 YAX/VMS ¥ - p 
ae -366=1986 10:39:00 ESBaSmATAS es 


1 
BASSMAT_ASSIGN = Copy one matrix to ano 6-SEP-1 BASRTL.S ROB BASMATASS.MAR;1 6) 


ee 49 GFLOAT _1O_HFLOA:SBASSMAT_ASS G, 
4 Bi ; Source array is an hfloat array. Now differentiate on the destination type. 
CF it: 
58 08 ac DO 5S2cF 934 HFLOAT: MOVL dest_matrix(AP), R8 to dest descriptor 
05 06 F + 5 5$: CASEB DSCSB_DTYPE(RB), #DSCSK _DTYPE_8, + hose K_DTYPE_D = DSCSK_DTYPE_B> 
p: D 336 i$: .WORD HFLOAT_TO_BYTE-{$ ; code for byte dtype 
| * S2DA 9 «WORD HFLOAT_TO_WORD-1$ ; code for word dtype 
FD* S2DC 328 «WORD HFLOAT TO _LONG-1$ ; code for long dtype 
ape D 95 -WORD ERR_DATTYPERR-1$ 3: quad not supported 
9 E5* 52e 269 «WORD HFLOAT_TO_FLOA-1$ 3 code for float dtype 
7CD° ee 36g -WORD HFLOAT_TO_DOUBL-1$ ; code for double dtype 
E46 9635 ;+ 
E4 964 ; Check for g and h floating separately, since their dtypes do not fit into 
ce ++ oe 3; the CASEB range. 
4 Es 36 re cps SCSB_DTYPE(R8), #DSCSK_DTYPE_G 
31 ts ya BRw HFLOAT_TO_GFLOA ; code for gfloat dtype 
91 52ED 971 2$: CMPB DSCSB_DTYPE(R8), #DSCSK_DTYPE_H 
0 12 Fl 97 BNEQ 
OB9A = 31 é 2 46 BRwW HFLOAT_TO_HFLOA ; code for hfloat dtype 
18 02 ae | 2 4 3°? 3$: Ha P5CSO_DTVPE (AS), #DSCSK_DTYPE_DSC 
58 04 AB 6 2 FC 977 MOVL 4(R8), RB 3; get addr of des 
D111 : + 44 BRB 5$ ; CASE again for “atype in desc 
ADBS 31 Ht 44 4$: BRW ERR_DATTYPERR 
05 982 ;+ 
5305 383 : Now type of source and destination arrays are known. Use the macro to 
5305 984 : _generate the code for each case 
5305 985 ;- 
5305 986 
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PSECT name 


ba 
$aBss 
_BASSCODE 


Phase 
Initialization 
Command processing 


Pass 1 

— table sort 
Symbol table output 
Psect synopsis output 


Cross-reference output 
Assembler run totals 
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! Psect synopsis ! 


beste enor oumncn na 


Allocation PSECT No. Attributes 
( °f 0 ¢ -) NOPIC US® CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
( 1 ¢ -) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
299009 (24697. BS. en PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


gem mer ent ese ne ee w nen coe $ 


! Performance indicators ! 


temo ne mma momen nam nn ene me + 


wope Fonte =U ine Elapsed Tine 
137 00:00:00:80 $0:00:02.97 

804 0:00:41. 0:01:23.33 

sf Pah Bock 

‘ 80:00, 8:48 00:00: 0:45 

3 90:00:00.98 0:00:00:0 

ssid $B: B8:99H8 99:00: 90-08 


The phy Be ae | Limit was 2000 pages. 


301438 bytes ( 
There were 60 


589 pages) of virtual memory were used to buffer the intermediate code. 
pages of symbol table space at Located to hold 370 non-local and 829 Local symbols. 
1007 source Lines were read in Pass 1, producin 


object records in Pass 2. 


32 pages of virtual memory were used to define 7,’6 macros. 


Macro Library name 


+ 
‘ {Macro Library statistics H 


Macros defined 


“B52 280UA 8: B:tsrst 16) -OBJ JBASRTL.MLB; 1 g 


“$255$DUA 
TOTALS att libraries) 


SVSU IGJSTARLET. MLB; 2 


493 GETS were required to define 7 macros. 


There were no errors, warnings or information messages. 
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